home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2001 October / macformat-108.iso / Demos / VectorWorks 9 / 8.5 Compatibility / Plug-ins / Stud 2x6 Wood.vst < prev    next >
Encoding:
Text File  |  2001-02-26  |  3.6 KB  |  164 lines  |  [TEXT/LMAN]
  1. MCVSI
  2. Stud 2x6 WooddÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕLE House Wall Styles.Click to insert a wood 2x6 stud≤◊g.Click to insert a wood 2x6 stud wall (5 1/2"). ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ˜˜˜˜˜ˇÏÏÏÏÏÏˇ˜˜˜˜˜ˇÏÏÏÏÏÏˇ˜˜˜˜˜ˇÏÏÏÏˇ˜˜˜˜˜ˇÏ‘ÏÏˇ˜˜˜˜˜ˇÏÏÏÏÏÏˇ˜˜˜˜˜ˇÏÏÏÏÏÏˇ˜˜˜˜˜ˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇˇ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇˇ˜˜˜˜˜˜ˇˇ˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇ˜˜ˇ˜˜˜˜ˇ˜˜ˇ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇ˜˜ˇˇ˜ˇ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇ˜˜˜ˇ˜˜ˇˇˇ˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇ˜˜˜˜ˇˇ˜ˇ˜˜ˇ˜˜˜˜˜˜˜˜˜˜˜˜˜ˇˇˇˇ˜˜˜˜˜ˇˇ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜ˇˇ¿‡@8@¿@¿@8@‡@ˇˇ¿$$    †8!§<ˇˇ¿ˇˇ¿ˇˇ¿ˇˇ¿ˇˇ¿ˇˇ¿ˇˇ¿ˇˇ¿$$    †8!º<ÕÕÕÕÕ.Click to insert a wood 2x6 stud wall (5 1/2").ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕProcedure WallStyle;
  3.  
  4. {
  5.  
  6. ©2001 Nemetschek NA, All Rights Reserved
  7.  
  8. Developed by Kevin Shertz
  9.  
  10. with additional development by Richard Diehl
  11.  
  12. }
  13.  
  14.  
  15.  
  16. CONST
  17.  
  18.     datafile='Stud 2x6 Wood.txt';
  19.  
  20.  
  21.  
  22. VAR
  23.  
  24.     A1, B1, offset : REAL;
  25.  
  26.     NumCavities, Fill, LineStyle, DefaultStyle, i : INTEGER;
  27.  
  28.     UPI : REAL;
  29.  
  30.     Fmt : INTEGER;
  31.  
  32.     UM, UM2, ClassName : STRING;
  33.  
  34.     filename, ver : STRING;
  35.  
  36.     UName, TheUnit, DA : LONGINT;
  37.  
  38.  
  39.  
  40. FUNCTION PathName(filename:STRING):STRING;
  41.  
  42. BEGIN
  43.  
  44.         PathName:=Concat(GetFolderPath(3),filename);
  45.  
  46. END;
  47.  
  48.  
  49.  
  50. PROCEDURE ReadValues;
  51.  
  52. BEGIN
  53.  
  54.     Open(filename);
  55.  
  56.     ReadLn(ver);
  57.  
  58.     ReadLn(A1);
  59.  
  60.     ReadLn(NumCavities);
  61.  
  62.     ReadLn(ClassName);
  63.  
  64.     ReadLn(TheUnit);
  65.  
  66. END;
  67.  
  68.  
  69.  
  70. PROCEDURE ReadCavity(last:boolean);
  71.  
  72. VAR
  73.  
  74. Width : REAL;
  75.  
  76. BEGIN
  77.  
  78.     ReadLn(Fill);
  79.  
  80.     ReadLn(LineStyle);
  81.  
  82.     ReadLn(Width);
  83.  
  84.     Width := Width*UPI/TheUnit;
  85.  
  86.     A1:=offset;
  87.  
  88.     B1:=offset-Width;
  89.  
  90.     offset:=B1;
  91.  
  92.     LineStyle:=LineStyle-1;
  93.  
  94.     IF LineStyle>0 THEN  PenPat(-LineStyle)
  95.  
  96.     ELSE PenPat(DefaultStyle);
  97.  
  98.     IF last AND ( fill=0) THEN BEGIN {Do nothing}
  99.  
  100.     END
  101.  
  102.     ELSE IF fill<>0 THEN AddCavity(TRUE,B1,A1,Fill)
  103.  
  104.     ELSE AddCavity(False,B1,B1,0);
  105.  
  106. END;
  107.  
  108.  
  109.  
  110. {
  111.  
  112. **MAIN**
  113.  
  114. }
  115.  
  116.  
  117.  
  118. BEGIN
  119.  
  120. filename:=PathName(DataFile);
  121.  
  122. DSelectAll;
  123.  
  124. GetUnits ( UName, DA, Fmt, UPI, UM, UM2 ) ;
  125.  
  126. ReadValues;
  127.  
  128. A1 := A1*UPI/TheUnit;
  129.  
  130. defaultStyle:=FPenPat;
  131.  
  132.  
  133.  
  134. PushAttrs;
  135.  
  136. NameClass(ClassName);
  137.  
  138. ClearCavities;
  139.  
  140. DoubLines(A1);
  141.  
  142. offset :=A1/2;
  143.  
  144. FOR i:=1 TO NumCavities DO BEGIN
  145.  
  146.     ReadCavity(NumCavities=i);
  147.  
  148.     END;
  149.  
  150. Close(filename);
  151.  
  152. CallTool(-208);
  153.  
  154. PopAttrs;
  155.  
  156.  
  157.  
  158. END;
  159.  
  160. RUN ( WallStyle );
  161.  
  162.  
  163.  
  164.